object DataModule4: TDataModule4
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 285
  Top = 117
  Height = 682
  Width = 769
  object SQLConnection1: TSQLConnection
    ConnectionName = 'MySQLConnection'
    DriverName = 'MySQL'
    GetDriverFunc = 'getSQLDriverMYSQL'
    LibraryName = 'dbexpmysql.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=MySQL'
      'HostName=localhost'
      'Database=basa'
      'User_Name=example'
      'Password='
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000')
    VendorLib = 'libmysql.dll'
    Connected = True
    Left = 80
    Top = 16
  end
  object badmtest: TSimpleDataSet
    Active = True
    Aggregates = <>
    Connection.ConnectionName = 'MySQLConnection'
    Connection.DriverName = 'MySQL'
    Connection.GetDriverFunc = 'getSQLDriverMYSQL'
    Connection.LibraryName = 'dbexpmysql.dll'
    Connection.LoginPrompt = False
    Connection.Params.Strings = (
      'DriverName=MySQL'
      'HostName=localhost'
      'Database=basa'
      'User_Name=example'
      'Password='
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000')
    Connection.VendorLib = 'libmysql.dll'
    Connection.Connected = True
    DataSet.CommandText = 'select * from badmtest'
    DataSet.DataSource = DataSource2
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 136
    Top = 120
    object badmtestidb: TIntegerField
      FieldName = 'idb'
      Required = True
    end
    object badmtestDuration_signal: TStringField
      FieldName = 'Duration_signal'
      Required = True
      Size = 10
    end
    object badmtestF_sound: TStringField
      FieldName = 'F_sound'
      Required = True
      Size = 10
    end
    object badmtestDelay: TStringField
      FieldName = 'Delay'
      Required = True
      Size = 10
    end
    object badmtestLength: TStringField
      FieldName = 'Length'
      Required = True
      Size = 10
    end
    object badmtestSequence: TStringField
      FieldName = 'Sequence'
      Required = True
      Size = 100
    end
  end
  object DataSource2: TDataSource
    DataSet = badmtest
    Left = 40
    Top = 120
  end
  object DataSource1: TDataSource
    DataSet = user
    Left = 40
    Top = 72
  end
  object user: TSimpleDataSet
    Active = True
    Aggregates = <>
    Connection.ConnectionName = 'MySQLConnection'
    Connection.DriverName = 'MySQL'
    Connection.GetDriverFunc = 'getSQLDriverMYSQL'
    Connection.LibraryName = 'dbexpmysql.dll'
    Connection.LoginPrompt = False
    Connection.Params.Strings = (
      'DriverName=MySQL'
      'HostName=localhost'
      'Database=basa'
      'User_Name=example'
      'Password='
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000')
    Connection.VendorLib = 'libmysql.dll'
    Connection.Connected = True
    DataSet.CommandText = 'select * from user'
    DataSet.DataSource = DataSource1
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 136
    Top = 72
    object userid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object userLogin: TStringField
      FieldName = 'Login'
      Required = True
      Size = 10
    end
    object userPassword: TStringField
      FieldName = 'Password'
      Required = True
      Size = 10
    end
    object userFIO: TStringField
      FieldName = 'FIO'
      Required = True
      Size = 10
    end
    object userDate: TDateField
      FieldName = 'Date'
      Required = True
      EditMask = '____.__.__;1;_'
    end
  end
  object base: TmySQLDatabase
    DatabaseName = 'basa'
    UserName = 'example'
    ConnectOptions = [coCompress]
    Params.Strings = (
      'Port=3306'
      'TIMEOUT=30'
      'DatabaseName=basa'
      'UID=example')
    DatasetOptions = []
    Left = 224
    Top = 16
  end
  object uDel: TmySQLQuery
    Database = base
    BeforeDelete = uDelBeforeDelete
    DataSource = DataSource1
    SQL.Strings = (
      'Delete from user'
      ' Where  login = :P1 and password =:P2')
    Left = 224
    Top = 72
    ParamData = <
      item
        DataType = ftString
        Name = 'P1'
        ParamType = ptUnknown
        Value = '%'
      end
      item
        DataType = ftString
        Name = 'P2'
        ParamType = ptUnknown
        Value = '%'
      end>
  end
  object bDel: TmySQLQuery
    Database = base
    DataSource = DataSource2
    SQL.Strings = (
      'Delete from badmtest'
      ' Where  Vid1 = :P1')
    Left = 312
    Top = 120
    ParamData = <
      item
        DataType = ftString
        Name = 'P1'
        ParamType = ptUnknown
        Value = '%'
      end>
  end
  object DataSource6: TDataSource
    DataSet = reg2
    Left = 376
    Top = 72
  end
  object reg2: TSimpleDataSet
    Active = True
    Aggregates = <>
    Connection = SQLConnection1
    DataSet.CommandText = 
      'Select id, Login, Password,FIO from user Where Login=:P1 and Pas' +
      'sword=:P2'
    DataSet.DataSource = DataSource6
    DataSet.MaxBlobSize = -1
    DataSet.Params = <
      item
        DataType = ftString
        Name = 'P1'
        ParamType = ptInput
        Value = '%'
      end
      item
        DataType = ftString
        Name = 'P2'
        ParamType = ptInput
        Value = '%'
      end>
    PacketRecords = 5
    Params = <>
    Left = 440
    Top = 72
    object reg2id: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object reg2Login: TStringField
      FieldName = 'Login'
      Required = True
      Size = 10
    end
    object reg2Password: TStringField
      FieldName = 'Password'
      Required = True
      Size = 10
    end
    object reg2FIO: TStringField
      FieldName = 'FIO'
      Required = True
      Size = 10
    end
  end
  object reg: TmySQLQuery
    Database = base
    DataSource = DataSource1
    RequestLive = True
    SQL.Strings = (
      
        'Insert INTO user(FIO,Login,Password,Date) Values(:P1,:P2,:P3,:P4' +
        ')')
    Left = 520
    Top = 72
    ParamData = <
      item
        DataType = ftString
        Name = 'P1'
        ParamType = ptUnknown
        Value = '%'
      end
      item
        DataType = ftString
        Name = 'P2'
        ParamType = ptUnknown
        Value = '%'
      end
      item
        DataType = ftString
        Name = 'P3'
        ParamType = ptUnknown
        Value = '%'
      end
      item
        DataType = ftString
        Name = 'P4'
        ParamType = ptUnknown
        Value = '%'
      end>
  end
  object DataSource7: TDataSource
    DataSet = teptest
    Left = 48
    Top = 248
  end
  object teptest: TSimpleDataSet
    Active = True
    Aggregates = <>
    Connection.ConnectionName = 'MySQLConnection'
    Connection.DriverName = 'MySQL'
    Connection.GetDriverFunc = 'getSQLDriverMYSQL'
    Connection.LibraryName = 'dbexpmysql.dll'
    Connection.LoginPrompt = False
    Connection.Params.Strings = (
      'DriverName=MySQL'
      'HostName=localhost'
      'Database=basa'
      'User_Name=example'
      'Password='
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000')
    Connection.VendorLib = 'libmysql.dll'
    Connection.Connected = True
    DataSet.CommandText = 'select * from teptest'
    DataSet.DataSource = DataSource1
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 136
    Top = 248
    object teptestidt: TIntegerField
      FieldName = 'idt'
      Required = True
    end
    object teptestTime_test: TTimeField
      FieldName = 'Time_test'
      Required = True
    end
  end
  object ssrtest: TSimpleDataSet
    Aggregates = <>
    Connection.ConnectionName = 'MySQLConnection'
    Connection.DriverName = 'MySQL'
    Connection.GetDriverFunc = 'getSQLDriverMYSQL'
    Connection.LibraryName = 'dbexpmysql.dll'
    Connection.LoginPrompt = False
    Connection.Params.Strings = (
      'DriverName=MySQL'
      'HostName=localhost'
      'Database=basa'
      'User_Name=example'
      'Password='
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000')
    Connection.VendorLib = 'libmysql.dll'
    Connection.Connected = True
    DataSet.CommandText = 'select * from ssrtest'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 136
    Top = 328
    object ssrtestids: TIntegerField
      FieldName = 'ids'
      Required = True
    end
    object ssrtestLength_seq: TStringField
      FieldName = 'Length_seq'
      Required = True
      Size = 10
    end
    object ssrtestSequence_l: TStringField
      FieldName = 'Sequence_l'
      Required = True
      Size = 100
    end
    object ssrtestN_Sequence: TStringField
      FieldName = 'N_Sequence'
      Required = True
      Size = 10
    end
    object ssrtestF_Stimul: TStringField
      FieldName = 'F_Stimul'
      Required = True
      Size = 10
    end
    object ssrtestF_Sound1: TStringField
      FieldName = 'F_Sound1'
      Required = True
      Size = 10
    end
    object ssrtestF_Sound2: TStringField
      FieldName = 'F_Sound2'
      Required = True
      Size = 10
    end
    object ssrtestF_Sound3: TStringField
      FieldName = 'F_Sound3'
      Required = True
      Size = 10
    end
    object ssrtestDuration_stimul: TStringField
      FieldName = 'Duration_stimul'
      Required = True
      Size = 10
    end
    object ssrtestNo_Stimul: TStringField
      FieldName = 'N_Stimul'
      Required = True
      Size = 10
    end
    object ssrtestSequence_n: TStringField
      FieldName = 'Sequence_n'
      Required = True
      Size = 100
    end
  end
  object DataSource8: TDataSource
    DataSet = ssrtest
    Left = 40
    Top = 328
  end
  object ritmtest: TSimpleDataSet
    Active = True
    Aggregates = <>
    Connection.ConnectionName = 'MySQLConnection'
    Connection.DriverName = 'MySQL'
    Connection.GetDriverFunc = 'getSQLDriverMYSQL'
    Connection.LibraryName = 'dbexpmysql.dll'
    Connection.LoginPrompt = False
    Connection.Params.Strings = (
      'DriverName=MySQL'
      'HostName=localhost'
      'Database=basa'
      'User_Name=example'
      'Password='
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000')
    Connection.VendorLib = 'libmysql.dll'
    Connection.Connected = True
    DataSet.CommandText = 'select * from ritmtest'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 136
    Top = 392
    object ritmtestidr: TIntegerField
      FieldName = 'idr'
      Required = True
    end
    object ritmtestTime_test: TStringField
      FieldName = 'Time_test'
      Required = True
      Size = 10
    end
    object ritmtestType_stimul: TStringField
      FieldName = 'Type_stimul'
      Required = True
      Size = 10
    end
    object ritmtestF_stimul: TStringField
      FieldName = 'F_stimul'
      Required = True
      Size = 10
    end
    object ritmtestF_Sound: TStringField
      FieldName = 'F_Sound'
      Required = True
      Size = 10
    end
    object ritmtestDuration_stimul: TStringField
      FieldName = 'Duration_stimul'
      Required = True
      Size = 10
    end
    object ritmtestTime_stop_stimul: TStringField
      FieldName = 'Time_stop_stimul'
      Required = True
      Size = 10
    end
    object ritmtestTime_no_stimul: TStringField
      FieldName = 'Time_no_stimul'
      Required = True
      Size = 10
    end
    object ritmtestTime_step_stimul: TStringField
      FieldName = 'Time_step_stimul'
      Required = True
      Size = 10
    end
    object ritmtestStep_F_stimul: TStringField
      FieldName = 'Step_F_stimul'
      Required = True
      Size = 10
    end
    object ritmtestF_start_stimul: TStringField
      FieldName = 'F_start_stimul'
      Required = True
      Size = 10
    end
    object ritmtestFp_stop_stimul: TStringField
      FieldName = 'Fp_stop_stimul'
      Required = True
      Size = 100
    end
    object ritmtestFm_stop_stimul: TStringField
      FieldName = 'Fm_stop_stimul'
      Required = True
      Size = 10
    end
  end
  object DataSource9: TDataSource
    DataSet = ritmtest
    Left = 40
    Top = 384
  end
  object badmres: TSimpleDataSet
    Active = True
    Aggregates = <>
    Connection.ConnectionName = 'MySQLConnection'
    Connection.DriverName = 'MySQL'
    Connection.GetDriverFunc = 'getSQLDriverMYSQL'
    Connection.LibraryName = 'dbexpmysql.dll'
    Connection.LoginPrompt = False
    Connection.Params.Strings = (
      'DriverName=MySQL'
      'HostName=localhost'
      'Database=basa'
      'User_Name=example'
      'Password='
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000')
    Connection.VendorLib = 'libmysql.dll'
    Connection.Connected = True
    DataSet.CommandText = 'select * from badmres'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 448
    Top = 120
    object badmresidbr: TIntegerField
      FieldName = 'idbr'
      Required = True
    end
    object badmresEid: TIntegerField
      FieldName = 'Eid'
    end
    object badmresuser_id: TIntegerField
      FieldName = 'user_id'
    end
    object badmresEidb: TIntegerField
      FieldName = 'Eidb'
    end
    object badmresbadmtest_idb: TIntegerField
      FieldName = 'badmtest_idb'
    end
    object badmresN_to_position: TStringField
      FieldName = 'N_to_position'
      Required = True
      Size = 10
    end
    object badmresN_from_position: TStringField
      FieldName = 'N_from_position'
      Required = True
      Size = 10
    end
    object badmresTime_start: TStringField
      FieldName = 'Time_start'
      Required = True
      Size = 10
    end
    object badmresTime_to_N: TStringField
      FieldName = 'Time_to_N'
      Required = True
      Size = 10
    end
    object badmresTime_from_N: TStringField
      FieldName = 'Time_from_N'
      Required = True
      Size = 10
    end
  end
  object DataSource10: TDataSource
    DataSet = badmres
    Left = 376
    Top = 120
  end
  object tepres: TSimpleDataSet
    Active = True
    Aggregates = <>
    Connection.ConnectionName = 'MySQLConnection'
    Connection.DriverName = 'MySQL'
    Connection.GetDriverFunc = 'getSQLDriverMYSQL'
    Connection.LibraryName = 'dbexpmysql.dll'
    Connection.LoginPrompt = False
    Connection.Params.Strings = (
      'DriverName=MySQL'
      'HostName=localhost'
      'Database=basa'
      'User_Name=example'
      'Password='
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000')
    Connection.VendorLib = 'libmysql.dll'
    Connection.Connected = True
    DataSet.CommandText = 'select * from tepres'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 368
    Top = 248
    object tepresidtr: TIntegerField
      FieldName = 'idtr'
      Required = True
    end
    object tepresEid: TIntegerField
      FieldName = 'Eid'
    end
    object tepresuser_id: TIntegerField
      FieldName = 'user_id'
    end
    object tepresEidt: TIntegerField
      FieldName = 'Eidt'
    end
    object tepresteptest_idt: TIntegerField
      FieldName = 'teptest_idt'
    end
    object tepresN_current: TStringField
      FieldName = 'N_current'
      Required = True
      Size = 10
    end
    object tepresTime_from_old: TStringField
      FieldName = 'Time_from_old'
      Required = True
      Size = 10
    end
  end
  object DataSource11: TDataSource
    DataSet = tepres
    Left = 296
    Top = 248
  end
  object DataSource12: TDataSource
    DataSet = ssrres
    Left = 304
    Top = 328
  end
  object ssrres: TSimpleDataSet
    Aggregates = <>
    Connection.ConnectionName = 'MySQLConnection'
    Connection.DriverName = 'MySQL'
    Connection.GetDriverFunc = 'getSQLDriverMYSQL'
    Connection.LibraryName = 'dbexpmysql.dll'
    Connection.LoginPrompt = False
    Connection.Params.Strings = (
      'DriverName=MySQL'
      'HostName=localhost'
      'Database=basa'
      'User_Name=example'
      'Password='
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000')
    Connection.VendorLib = 'libmysql.dll'
    Connection.Connected = True
    DataSet.CommandText = 'select * from ssrres'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 368
    Top = 328
    object ssrresidsr: TIntegerField
      FieldName = 'idsr'
      Required = True
    end
    object ssrresEid: TIntegerField
      FieldName = 'Eid'
    end
    object ssrresuser_id: TIntegerField
      FieldName = 'user_id'
    end
    object ssrresEids: TIntegerField
      FieldName = 'Eids'
    end
    object ssrresssrtest_ids: TIntegerField
      FieldName = 'ssrtest_ids'
    end
    object ssrresN_stimul: TStringField
      FieldName = 'No_stimul'
      Required = True
      Size = 10
    end
    object ssrresN_fix_stimul: TStringField
      FieldName = 'N_fix_stimul'
      Required = True
      Size = 10
    end
    object ssrresTime_start_stimul: TStringField
      FieldName = 'Time_start_stimul'
      Required = True
      Size = 10
    end
    object ssrresTime_fix_stimul: TStringField
      FieldName = 'Time_fix_stimul'
      Required = True
      Size = 10
    end
    object ssrresTime_current: TStringField
      FieldName = 'Time_current'
      Required = True
      Size = 10
    end
    object ssrresType_stimul: TStringField
      FieldName = 'Type_stimul'
      Required = True
      Size = 10
    end
  end
  object DataSource13: TDataSource
    DataSet = ritmres
    Left = 304
    Top = 392
  end
  object ritmres: TSimpleDataSet
    Active = True
    Aggregates = <>
    Connection.ConnectionName = 'MySQLConnection'
    Connection.DriverName = 'MySQL'
    Connection.GetDriverFunc = 'getSQLDriverMYSQL'
    Connection.LibraryName = 'dbexpmysql.dll'
    Connection.LoginPrompt = False
    Connection.Params.Strings = (
      'DriverName=MySQL'
      'HostName=localhost'
      'Database=basa'
      'User_Name=example'
      'Password='
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000')
    Connection.VendorLib = 'libmysql.dll'
    Connection.Connected = True
    DataSet.CommandText = 'select * from ritmres'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 368
    Top = 392
    object ritmresidrr: TIntegerField
      FieldName = 'idrr'
      Required = True
    end
    object ritmresEid: TIntegerField
      FieldName = 'Eid'
    end
    object ritmresuser_id: TIntegerField
      FieldName = 'user_id'
    end
    object ritmresEidr: TIntegerField
      FieldName = 'Eidr'
    end
    object ritmresritmtest_idr: TIntegerField
      FieldName = 'ritmtest_idr'
    end
    object ritmresN_stimul: TStringField
      FieldName = 'N_stimul'
      Required = True
      Size = 10
    end
    object ritmresN_fix_stimul: TStringField
      FieldName = 'N_fix_stimul'
      Required = True
      Size = 10
    end
    object ritmresTime_start_stimul: TStringField
      FieldName = 'Time_start_stimul'
      Required = True
      Size = 10
    end
    object ritmresTime_fix_stimul: TStringField
      FieldName = 'Time_fix_stimul'
      Required = True
      Size = 10
    end
    object ritmresTime_current: TStringField
      FieldName = 'Time_current'
      Required = True
      Size = 10
    end
  end
  object badmresult1: TSimpleDataSet
    Active = True
    Aggregates = <>
    Connection.ConnectionName = 'MySQLConnection'
    Connection.DriverName = 'MySQL'
    Connection.GetDriverFunc = 'getSQLDriverMYSQL'
    Connection.LibraryName = 'dbexpmysql.dll'
    Connection.LoginPrompt = False
    Connection.Params.Strings = (
      'DriverName=MySQL'
      'HostName=localhost'
      'Database=basa'
      'User_Name=example'
      'Password='
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000')
    Connection.VendorLib = 'libmysql.dll'
    Connection.Connected = True
    DataSet.CommandText = 
      'Select Duration_signal, F_sound, Delay, Length, Sequence, N_to_p' +
      'osition, N_from_position, Time_start, Time_to_N, Time_from_N'#13#10' F' +
      'rom badmtest, badmres  Where'#13#10' Eidb = idb and'#13#10' Eid = :id'
    DataSet.DataSource = DataSource1
    DataSet.MaxBlobSize = -1
    DataSet.Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
        Size = 4
      end>
    Params = <>
    Left = 136
    Top = 176
    object badmresult1Duration_signal: TStringField
      FieldName = 'Duration_signal'
      Required = True
      Size = 10
    end
    object badmresult1F_sound: TStringField
      FieldName = 'F_sound'
      Required = True
      Size = 10
    end
    object badmresult1Delay: TStringField
      FieldName = 'Delay'
      Required = True
      Size = 10
    end
    object badmresult1Length: TStringField
      FieldName = 'Length'
      Required = True
      Size = 10
    end
    object badmresult1Sequence: TStringField
      FieldName = 'Sequence'
      Required = True
      Size = 100
    end
    object badmresult1N_to_position: TStringField
      FieldName = 'N_to_position'
      Required = True
      Size = 10
    end
    object badmresult1N_from_position: TStringField
      FieldName = 'N_from_position'
      Required = True
      Size = 10
    end
    object badmresult1Time_start: TStringField
      FieldName = 'Time_start'
      Required = True
      Size = 10
    end
    object badmresult1Time_to_N: TStringField
      FieldName = 'Time_to_N'
      Required = True
      Size = 10
    end
    object badmresult1Time_from_N: TStringField
      FieldName = 'Time_from_N'
      Required = True
      Size = 10
    end
  end
  object DataSource5: TDataSource
    DataSet = badmresult1
    Left = 40
    Top = 176
  end
  object tepresult1: TSimpleDataSet
    Active = True
    Aggregates = <>
    Connection.ConnectionName = 'MySQLConnection'
    Connection.DriverName = 'MySQL'
    Connection.GetDriverFunc = 'getSQLDriverMYSQL'
    Connection.LibraryName = 'dbexpmysql.dll'
    Connection.LoginPrompt = False
    Connection.Params.Strings = (
      'DriverName=MySQL'
      'HostName=localhost'
      'Database=basa'
      'User_Name=example'
      'Password='
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000')
    Connection.VendorLib = 'libmysql.dll'
    Connection.Connected = True
    DataSet.CommandText = 
      'Select Time_test, N_current, Time_from_old'#13#10' From teptest, tepre' +
      's  Where'#13#10' Eidt = idt and'#13#10' Eid = :id'
    DataSet.DataSource = DataSource1
    DataSet.MaxBlobSize = -1
    DataSet.Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
        Size = 4
      end>
    Params = <>
    Left = 504
    Top = 248
    object tepresult1Time_test: TTimeField
      FieldName = 'Time_test'
      Required = True
    end
    object tepresult1N_current: TStringField
      FieldName = 'N_current'
      Required = True
      Size = 10
    end
    object tepresult1Time_from_old: TStringField
      FieldName = 'Time_from_old'
      Required = True
      Size = 10
    end
  end
  object DataSource14: TDataSource
    DataSet = tepresult1
    Left = 440
    Top = 248
  end
  object DataSource15: TDataSource
    DataSet = ssrresult1
    Left = 440
    Top = 328
  end
  object ssrresult1: TSimpleDataSet
    Active = True
    Aggregates = <>
    AggregatesActive = True
    Connection.ConnectionName = 'MySQLConnection'
    Connection.DriverName = 'MySQL'
    Connection.GetDriverFunc = 'getSQLDriverMYSQL'
    Connection.LibraryName = 'dbexpmysql.dll'
    Connection.LoginPrompt = False
    Connection.Params.Strings = (
      'DriverName=MySQL'
      'HostName=localhost'
      'Database=basa'
      'User_Name=example'
      'Password='
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000')
    Connection.VendorLib = 'libmysql.dll'
    Connection.Connected = True
    DataSet.CommandText = 
      'Select Length_seq, Sequence_l, N_Sequence, F_stimul, F_sound1, F' +
      '_sound2, F_sound3, Duration_stimul, No_stimul, Sequence_N, N_sti' +
      'mul, N_fix_stimul, Time_start_stimul, Time_fix_stimul, Time_curr' +
      'ent, Type_stimul'#13#10' From ssrtest, ssrres  Where'#13#10' Eids = ids and'#13 +
      #10' Eid = :id'
    DataSet.DataSource = DataSource1
    DataSet.MaxBlobSize = -1
    DataSet.Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
        Size = 4
      end>
    Params = <>
    Left = 504
    Top = 328
    object ssrresult1Length_seq: TStringField
      FieldName = 'Length_seq'
      Required = True
      Size = 10
    end
    object ssrresult1Sequence_l: TStringField
      FieldName = 'Sequence_l'
      Required = True
      Size = 100
    end
    object ssrresult1N_Sequence: TStringField
      FieldName = 'N_Sequence'
      Required = True
      Size = 10
    end
    object ssrresult1F_stimul: TStringField
      FieldName = 'F_stimul'
      Required = True
      Size = 10
    end
    object ssrresult1F_sound1: TStringField
      FieldName = 'F_sound1'
      Required = True
      Size = 10
    end
    object ssrresult1F_sound2: TStringField
      FieldName = 'F_sound2'
      Required = True
      Size = 10
    end
    object ssrresult1F_sound3: TStringField
      FieldName = 'F_sound3'
      Required = True
      Size = 10
    end
    object ssrresult1Duration_stimul: TStringField
      FieldName = 'Duration_stimul'
      Required = True
      Size = 10
    end
    object ssrresult1No_stimul: TStringField
      FieldName = 'No_stimul'
      Required = True
      Size = 10
    end
    object ssrresult1Sequence_N: TStringField
      FieldName = 'Sequence_N'
      Required = True
      Size = 100
    end
    object ssrresult1N_stimul: TStringField
      FieldName = 'N_stimul'
      Required = True
      Size = 10
    end
    object ssrresult1N_fix_stimul: TStringField
      FieldName = 'N_fix_stimul'
      Required = True
      Size = 10
    end
    object ssrresult1Time_start_stimul: TStringField
      FieldName = 'Time_start_stimul'
      Required = True
      Size = 10
    end
    object ssrresult1Time_fix_stimul: TStringField
      FieldName = 'Time_fix_stimul'
      Required = True
      Size = 10
    end
    object ssrresult1Time_current: TStringField
      FieldName = 'Time_current'
      Required = True
      Size = 10
    end
    object ssrresult1Type_stimul: TStringField
      FieldName = 'Type_stimul'
      Required = True
      Size = 10
    end
  end
  object ritmresult1: TSimpleDataSet
    Active = True
    Aggregates = <>
    Connection.ConnectionName = 'MySQLConnection'
    Connection.DriverName = 'MySQL'
    Connection.GetDriverFunc = 'getSQLDriverMYSQL'
    Connection.LibraryName = 'dbexpmysql.dll'
    Connection.LoginPrompt = False
    Connection.Params.Strings = (
      'DriverName=MySQL'
      'HostName=localhost'
      'Database=basa'
      'User_Name=example'
      'Password='
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000')
    Connection.VendorLib = 'libmysql.dll'
    Connection.Connected = True
    DataSet.CommandText = 
      'Select Time_test, Type_stimul, F_stimul, F_sound, Duration_stimu' +
      'l, Time_stop_stimul, Time_no_stimul, Time_step_stimul, Step_F_st' +
      'imul, F_start_stimul,Fp_stop_stimul, Fm_stop_stimul N_stimul, N_' +
      'fix_stimul, Time_start_stimul, Time_fix_stimul, Time_current'#13#10' F' +
      'rom ritmtest, ritmres  Where'#13#10' Eidr = idr and'#13#10' Eid = :id'
    DataSet.DataSource = DataSource1
    DataSet.MaxBlobSize = -1
    DataSet.Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
        Size = 4
      end>
    Params = <>
    Left = 504
    Top = 392
    object ritmresult1Time_test: TStringField
      FieldName = 'Time_test'
      Required = True
      Size = 10
    end
    object ritmresult1Type_stimul: TStringField
      FieldName = 'Type_stimul'
      Required = True
      Size = 10
    end
    object ritmresult1F_stimul: TStringField
      FieldName = 'F_stimul'
      Required = True
      Size = 10
    end
    object ritmresult1F_sound: TStringField
      FieldName = 'F_sound'
      Required = True
      Size = 10
    end
    object ritmresult1Duration_stimul: TStringField
      FieldName = 'Duration_stimul'
      Required = True
      Size = 10
    end
    object ritmresult1Time_stop_stimul: TStringField
      FieldName = 'Time_stop_stimul'
      Required = True
      Size = 10
    end
    object ritmresult1Time_no_stimul: TStringField
      FieldName = 'Time_no_stimul'
      Required = True
      Size = 10
    end
    object ritmresult1Time_step_stimul: TStringField
      FieldName = 'Time_step_stimul'
      Required = True
      Size = 10
    end
    object ritmresult1Step_F_stimul: TStringField
      FieldName = 'Step_F_stimul'
      Required = True
      Size = 10
    end
    object ritmresult1F_start_stimul: TStringField
      FieldName = 'F_start_stimul'
      Required = True
      Size = 10
    end
    object ritmresult1Fp_stop_stimul: TStringField
      FieldName = 'Fp_stop_stimul'
      Required = True
      Size = 100
    end
    object ritmresult1N_stimul: TStringField
      FieldName = 'N_stimul'
      Required = True
      Size = 10
    end
    object ritmresult1N_fix_stimul: TStringField
      FieldName = 'N_fix_stimul'
      Required = True
      Size = 10
    end
    object ritmresult1Time_start_stimul: TStringField
      FieldName = 'Time_start_stimul'
      Required = True
      Size = 10
    end
    object ritmresult1Time_fix_stimul: TStringField
      FieldName = 'Time_fix_stimul'
      Required = True
      Size = 10
    end
    object ritmresult1Time_current: TStringField
      FieldName = 'Time_current'
      Required = True
      Size = 10
    end
  end
  object DataSource16: TDataSource
    DataSet = ritmresult1
    Left = 440
    Top = 392
  end
  object badmresult2: TSimpleDataSet
    Active = True
    Aggregates = <>
    Connection.ConnectionName = 'MySQLConnection'
    Connection.DriverName = 'MySQL'
    Connection.GetDriverFunc = 'getSQLDriverMYSQL'
    Connection.LibraryName = 'dbexpmysql.dll'
    Connection.LoginPrompt = False
    Connection.Params.Strings = (
      'DriverName=MySQL'
      'HostName=localhost'
      'Database=basa'
      'User_Name=example'
      'Password='
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000')
    Connection.VendorLib = 'libmysql.dll'
    Connection.Connected = True
    DataSet.CommandText = 
      'Select FIO, N_to_position, N_from_position, Time_start, Time_to_' +
      'N, Time_from_N'#13#10' From user, badmres  Where'#13#10' Eid = id and'#13#10' Eidb' +
      ' = :idb'
    DataSet.DataSource = DataSource2
    DataSet.MaxBlobSize = -1
    DataSet.Params = <
      item
        DataType = ftInteger
        Name = 'idb'
        ParamType = ptInput
        Size = 4
      end>
    Params = <>
    Left = 304
    Top = 176
    object badmresult2FIO: TStringField
      DisplayWidth = 56
      FieldName = 'FIO'
      Required = True
      Size = 50
    end
    object badmresult2N_to_position: TStringField
      DisplayWidth = 13
      FieldName = 'N_to_position'
      Required = True
      Size = 10
    end
    object badmresult2N_from_position: TStringField
      DisplayWidth = 15
      FieldName = 'N_from_position'
      Required = True
      Size = 10
    end
    object badmresult2Time_start: TStringField
      DisplayWidth = 12
      FieldName = 'Time_start'
      Required = True
      Size = 10
    end
    object badmresult2Time_to_N: TStringField
      DisplayWidth = 12
      FieldName = 'Time_to_N'
      Required = True
      Size = 10
    end
    object badmresult2Time_from_N: TStringField
      DisplayWidth = 13
      FieldName = 'Time_from_N'
      Required = True
      Size = 10
    end
  end
  object tepresult2: TSimpleDataSet
    Active = True
    Aggregates = <>
    Connection.ConnectionName = 'MySQLConnection'
    Connection.DriverName = 'MySQL'
    Connection.GetDriverFunc = 'getSQLDriverMYSQL'
    Connection.LibraryName = 'dbexpmysql.dll'
    Connection.LoginPrompt = False
    Connection.Params.Strings = (
      'DriverName=MySQL'
      'HostName=localhost'
      'Database=basa'
      'User_Name=example'
      'Password='
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000')
    Connection.VendorLib = 'libmysql.dll'
    Connection.Connected = True
    DataSet.CommandText = 
      'Select FIO, N_current, Time_from_old'#13#10' From user, tepres  Where'#13 +
      #10' Eid = id and'#13#10' Eidt = :idt'
    DataSet.DataSource = DataSource7
    DataSet.MaxBlobSize = -1
    DataSet.Params = <
      item
        DataType = ftInteger
        Name = 'idt'
        ParamType = ptInput
        Size = 4
      end>
    Params = <>
    Left = 640
    Top = 248
    object tepresult2FIO: TStringField
      FieldName = 'FIO'
      Required = True
      Size = 50
    end
    object tepresult2N_current: TStringField
      FieldName = 'N_current'
      Required = True
      Size = 10
    end
    object tepresult2Time_from_old: TStringField
      FieldName = 'Time_from_old'
      Required = True
      Size = 10
    end
  end
  object DataSource3: TDataSource
    DataSet = badmresult2
    Left = 224
    Top = 176
  end
  object DataSource17: TDataSource
    DataSet = tepresult2
    Left = 576
    Top = 248
  end
  object bInsert: TmySQLQuery
    Database = base
    DataSource = DataSource2
    RequestLive = True
    SQL.Strings = (
      
        'Insert INTO badmtest (Duration_signal, F_sound,Delay,Length,Sequ' +
        'ence)  Values (:P1,:P2,:P3,:P4,:P5)')
    Left = 192
    Top = 120
    ParamData = <
      item
        DataType = ftString
        Name = 'P1'
        ParamType = ptUnknown
        Value = '%'
      end
      item
        DataType = ftString
        Name = 'P2'
        ParamType = ptUnknown
        Value = '%'
      end
      item
        DataType = ftString
        Name = 'P3'
        ParamType = ptUnknown
        Value = '%'
      end
      item
        DataType = ftString
        Name = 'P4'
        ParamType = ptUnknown
        Value = '%'
      end
      item
        DataType = ftString
        Name = 'P5'
        ParamType = ptUnknown
        Value = '%'
      end>
  end
  object tInsert: TmySQLQuery
    Database = base
    DataSource = DataSource7
    SQL.Strings = (
      'Insert Into teptest(Vid2,Time_test) '
      'Values ('#39#1058#1077#1087#1087#1080#1085#1075'-'#1090#1077#1089#1090#39',:P1)')
    Left = 224
    Top = 248
    ParamData = <
      item
        DataType = ftString
        Name = 'P1'
        ParamType = ptUnknown
        Value = '%'
      end>
  end
  object bres: TmySQLQuery
    Database = base
    DataSource = DataSource10
    SQL.Strings = (
      
        'Insert INTO badmres (Eid,Eidb,N_to_position, N_from_position,Tim' +
        'e_start,Time_to_N,Time_from_N)  Values (:P1,:P2,:P3,:P4,:P5,:P6,' +
        ':P7)')
    Left = 528
    Top = 120
    ParamData = <
      item
        DataType = ftString
        Name = 'P1'
        ParamType = ptUnknown
        Value = '%'
      end
      item
        DataType = ftString
        Name = 'P2'
        ParamType = ptUnknown
        Value = '%'
      end
      item
        DataType = ftString
        Name = 'P3'
        ParamType = ptUnknown
        Value = '%'
      end
      item
        DataType = ftString
        Name = 'P4'
        ParamType = ptUnknown
        Value = '%'
      end
      item
        DataType = ftString
        Name = 'P5'
        ParamType = ptUnknown
        Value = '%'
      end
      item
        DataType = ftString
        Name = 'P6'
        ParamType = ptUnknown
        Value = '%'
      end
      item
        DataType = ftString
        Name = 'P7'
        ParamType = ptUnknown
        Value = '%'
      end>
  end
  object btest: TSimpleDataSet
    Active = True
    Aggregates = <>
    Connection.ConnectionName = 'MySQLConnection'
    Connection.DriverName = 'MySQL'
    Connection.GetDriverFunc = 'getSQLDriverMYSQL'
    Connection.LibraryName = 'dbexpmysql.dll'
    Connection.LoginPrompt = False
    Connection.Params.Strings = (
      'DriverName=MySQL'
      'HostName=localhost'
      'Database=basa'
      'User_Name=example'
      'Password='
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000')
    Connection.VendorLib = 'libmysql.dll'
    Connection.Connected = True
    DataSet.CommandText = 'select MAX(idb) from badmtest'
    DataSet.DataSource = DataSource2
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 248
    Top = 120
    object btestMAXidb: TIntegerField
      FieldName = 'MAX(idb)'
    end
  end
end
